home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 08 (1983-04)(Softdisk)(Disk 2 of 2 Side A).zip / Softdisk Magazette Volume 2, No. 08 (1983-04)(Softdisk)(Disk 2 of 2 Side A).do / PAL.93436.PENNOCK.MAR.83.A.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  23 lines
  1. 10  REM  SOFTPAL 3/83
  2. 20 D$ =  CHR$(13) + CHR$(4): HOME : TEXT : GOTO 100
  3. 30 A = (40 - LEN(A$))/2: HTAB A: PRINT A$: RETURN 
  4. 40  VTAB 23:A$ = "PRESS ANY KEY TO CONTINUE": GOSUB 30: VTAB 23:A =  PEEK( -16384): IF A <128 GOTO 40
  5. 50  POKE ( -16368),0: HOME : VTAB 1: RETURN 
  6. 100  VTAB 1:A$ = " BINARY LOAD POINTS ": GOSUB 30
  7. 110  PRINT : PRINT "1. TO FIND THE LOAD POINT OF THE LAST": PRINT "BINARY FILE LOADED EITHER:": PRINT "     A. PEEK (44634)+PEEK(44635)*256."
  8. 120  PRINT "     B. OR CALL -151"
  9. 130  PRINT "        *AA72      'RTN, 'RTN
  10. 140  PRINT "        THE FIRST HEX DIGIT IS THE"
  11. 150  PRINT "        LEAST SIGNIFICANT BYTE. THE"
  12. 160  PRINT "        HEX DIGIT ON THE NEXT LINE IS"
  13. 170  PRINT "        THE MOST SIGNIFICANT BYTE OF": PRINT "        THE LOAD ADDRESS (LOAD POINT).": PRINT : PRINT 
  14. 180  PRINT "2. TO FIND THE BINARY PROGRAM LENGTH:": PRINT 
  15. 190  PRINT "     A. PEEK(43616)+PEEK(43617)*256."
  16. 200  PRINT "     B. OR FOLLOW INSTRUCTIONS UNDER<CTRL-Q>"
  17. 210  PRINT "        1.B ABOVE USING HEX ADDRESS"
  18. 220  PRINT "        $AA60 IN LIEU OF $AA72.": PRINT "     C. *3D0G    'RTN (FOR BASIC)
  19. 230  VTAB 23: GOSUB 40
  20. 240  PRINT "3. THE "; CHR$(34);"A"; CHR$(34);" OPTION IS BEST USED FROM"
  21. 250  PRINT "WITHIN A PROGRAM WHILE THE "; CHR$(34);"B"; CHR$(34);" OPTION"
  22. 260  PRINT "IS BEST USED IN THE DIRECT MODE."
  23. 270  GOSUB 40: PRINT D$"RUNPAL.MENU"